//----------------------------------------
// Copyright © yanghy. All Rights Reserved.
//
// Licensed under Lazarus.modifiedLGPL
//----------------------------------------

procedure CefV8InterceptorRef_Create(out Result: ICefV8Interceptor); extdecl;
begin
  handleExceptionBegin
  Result := TV8InterceptorRef.Create;
  handleExceptionEnd
end;

procedure CefV8Interceptor_GetByName(const AObj: ICefV8Interceptor; AEventData: Pointer); extdecl;
begin
  handleExceptionBegin
  (AObj as TV8InterceptorRef).GetByNamePtr := AEventData;
  handleExceptionEnd
end;

procedure CefV8Interceptor_GetByIndex(const AObj: ICefV8Interceptor; AEventData: Pointer); extdecl;
begin
  handleExceptionBegin
  (AObj as TV8InterceptorRef).GetByIndexPtr := AEventData;
  handleExceptionEnd
end;

procedure CefV8Interceptor_SetByName(const AObj: ICefV8Interceptor; AEventData: Pointer); extdecl;
begin
  handleExceptionBegin
  (AObj as TV8InterceptorRef).SetByNamePtr := AEventData;
  handleExceptionEnd
end;

procedure CefV8Interceptor_SetByIndex(const AObj: ICefV8Interceptor; AEventData: Pointer); extdecl;
begin
  handleExceptionBegin
  (AObj as TV8InterceptorRef).SetByIndexPtr := AEventData;
  handleExceptionEnd
end;

exports
  CefV8InterceptorRef_Create,
  CefV8Interceptor_GetByName,
  CefV8Interceptor_GetByIndex,
  CefV8Interceptor_SetByName,
  CefV8Interceptor_SetByIndex;
